home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pascal / pascsrc.arc / INTVAR2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  369 b   |  19 lines
  1.                                 (* Chapter 3 - Program 2 *)
  2. program More_Integer_Demos;
  3.  
  4. var X,Y      : integer;
  5.     Count    : integer;
  6.  
  7. begin
  8.    X := 12;
  9.    Y := 13;
  10.    Count := X + Y;
  11.    Write('The value of X is');
  12.    Writeln(X:4);
  13.    Write('The value of Y is');
  14.    Writeln(Y:5);
  15.    Write('And Count is now ');
  16.    Write(Count:6);
  17.    Writeln;
  18. end.
  19.